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i Require file for the Library access routines 


} Version: *v04-000' 


PERSP ESE L ASAT T ETT TTT TTT TTT TCT TTT errr rrr ceric icici iirc c ect ie iit i iii iiiiit | 


eRe RRO REAAEAAAEAARAAAEAAAAEAARAAAEE AAA AAAAEAAATAAAe AAA 


'ee 
' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ait SE_ AND WITH THE 
INCLUSION OF ig & gee ier NOTICE, THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF oy BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faanstchaten’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT ibn. LO NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: Library access procedures 
i , Creer 


The VAX/VMS Librarian procedures implement a standard access method 


to Libraries through a shared, common procedure set. 


{ ENVIRONMENT: 


VAX native, user mode. 


i AUTHOR: Benn Schreiber, Tim Halvorsen 
i CREATION DATE: June-1979 
! MODIFIED BY: 
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' 
: Define VMS block structures 
STRUCTURE 


BBLOCK (O, P, S, E; NJ = 

; (BBLOCK+0)<P,S,E>; 
Define routine Linkages 
LINKAGE 

JSB_0 = JSB, 

JSB_1 = JSB (REGISTER = 0), 

438 -¢ = JSB (REGISTER = 0, REGISTER = 1), 
, JSB_5 = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2); 
! Useful macros 
MACRO 


; Macro to generate a pointer to a counted string 
CSTRING(STRING) = UPLIT BYTE(ZCHARCOUNT(STRING) ,STRING)%, 
Macro to describe a string 
STRINGDESC(STRING) = ZXCHARCOUNT(STRING), UPLIT(ZASCII STRING)%, 
Macro to generate a quadword string descriptor 
DESCRIPTOR(STRING) = BBLOCK Cdsc$c_s_bln] INITIAL(STRINGDESC(STRING))%, 
Macro to generate a counted string 


Macro to execute a given sequence of commands and return if any error 
; perform (command, errorcode) = 
BEGIN 


LOCAL 
status; 
status = command; 
IF a status ! If error detected, 
ZIF ZLENGTH GTR 1 ! If errorcode arg is present 
oi (errorcode, ZREMAINING, .status); 
ert RETURN .status; ! then return with error 
ENDZ, 


Macro to execute a command which may have and RMS error return 
involving both a status and STV value 


COUNTEDSTRING(STRING) = VECTOR CZCHARCOUNT (STRING)+1, BYTE) INITIAL (BYTE(ZCHARCOUNT(STRING) ,ZASCII STRING ))%, 


— 
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CA 
Sy 
rms_perform (command, errorcode, rms_stv) = AD 
“BEGIN a 
status; CA 
status = command; CA 
IF NOT .status ! If error detected, ef 
t1F TLENGTH GTR 1 ! If errorcode arg is present CA 
aT ee (errorcode, %REMAINING, .status, rms_stv); 
ert RETURN .status; ' then return with error 
ENDZ; 


' 
Macros to ease typing 
MACRO 

SHORT = Oe las 


BYTLIT = UNSIGN 
WORDLIT = UNSIGN 


Equated symbols 


Short attribute 
! Unsigned byte attribute 
! Unsigned word attribute 
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LITERAL 
SYMSC_MAXLNG = 31 ! Max Length of symbols in object/macro Libs 
SYMSC_SHORTSYM = is, ! Max length of short symbols (help Library) 
TRUE = 1, ! Boolean TRUE 
FALSE 7 0; ! Boolean FALSE 
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